home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 3.1 / toasterall / arexx_examples / tpaint / tpsmiley.rexx < prev    next >
OS/2 REXX Batch file  |  1993-05-13  |  1KB  |  40 lines
  1. /* Don't Worry Draw Happy! by Arnie Cachelin 1992 */
  2. /*   Printed as an example in Video Toaster User */
  3.  
  4. address 'DigiPaint' /* Tell ARexx where commands go */
  5. 'Pmcl'          /* Normal paint mode */
  6. 'Hvof'
  7. 'Maxc'
  8. 'Drci'          /* Circles */
  9. 'Flon'          /* Filled shape mode */
  10. 'Bsz3'          /* Brush Size */
  11. 'Cbxa'          /* Yellow color */
  12. 'Pend' 376 240  /* Smiley position x,y  */
  13. 'Penu' 376 10   /* Smiley Radius x,y-r   */
  14.  
  15. 'Flof'          /* Fill off */
  16. 'Cbx0'          /* Black */
  17. 'Drar'          /* Draw ellipses */
  18. 'Pend' 376 308  /* Smile center */
  19. 'Penu' 510 396  /* Smile size */
  20. 'Drre'          /* Draw rectangles */
  21. 'Flon'          /* Fill on */
  22. 'Cbxa'          /* Yellow */
  23. 'Pend' 212 200  /* Erase top of smile ellipse */
  24. 'Penu' 536 326
  25. 'Cbx0'          /* Black color */
  26. 'Drci'
  27. 'Pend' 245 328  /* Round smile edges */
  28. 'Penu' 245 328
  29. 'Pend' 507 328
  30. 'Penu' 507 328
  31.  
  32. 'Pend' 300 180  /* Draw Eyes */
  33. 'Penu' 322 180
  34. 'Pend' 452 180
  35. 'Penu' 474 180
  36.  
  37. /* 'Blu2'  */         /* Set to Heavy Blur mode */
  38. /* 'Whsc'  */         /* Blur whole screen to anti-alias edges.. real slow */
  39. 'Shco'          /* Render to Program Out */
  40. exit            /* Bye bye! */